/* Replicates Appendix A1 Tables */
#delimit;
use $data\allsample, clear;

/* Replicates Table A1-2 : OLS Estimates of Effect of Expectations on Educational Attainment: Maximum Sample Size */;

eststo clear;
qui eststo: reg Y T1 , cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T2 , cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2, cluster(sch_id);
estadd local tc "No"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "No"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec2, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "No"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "No"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3, a(sch_id) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reghdfe Y T1 T2 $spec3, a(tidmth tideng) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "No"; estadd local tfe "Yes"; estadd scalar nst = round(e(N),10);
capture drop sample1;
gen sample1 = e(sample);
qui eststo: reghdfe Y T1 T2 $spec3 if sample1==1, a(sch_id) cluster(sch_id);
*qui eststo: reghdfe Y T1 T2 $spec3, a(sch_id) cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 i.sch_id if cbyrace6==1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
qui eststo: reg Y T1 T2 $spec3 i.sch_id if cbyrace3==1, cluster(sch_id);
estadd local tc "Yes"; estadd local ss "Yes"; estadd local gpa "Yes"; 
estadd local sfe "Yes"; estadd local tfe "No"; estadd scalar nst = round(e(N),10);
esttab, keep(T1 T2);
esttab using $tables\table_s2.tex, append label collabels(none) 
nomtitles mgroups("All Students" "White" "Black", pattern(1 0 0 0 0 0 0 0 0 1 1) 
prefix(\multicolumn{@span}{c}{) suffix(}) span) keep(T1 T2) cells(b(fmt(2) star) se(fmt(2) par)) 
starlevels(* 0.10 ** 0.05 *** 0.01) noobs stats(tc ss gpa sfe tfe nst r2 r2_a, 
fmt(0 0 0 0 0 0 2 2) labels("Teacher Controls" "Student SES" "9th Grade GPA" "School FE" "Teacher Dyad FE" "Observations" " $ R^2 $ " "Adjusted $ R^2 $")) 
title("OLS Estimates of Effect of Expectations on Educational Attainment, All Sample" 
\label{tab:olschangen});



